home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed23.d64 / hang math (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  115 lines
  1. 5 POKE53280,0:POKE53281,0
  2. 7 PRINT"[147]    [167][204][186][165] [206][205] [182][205] [181] [206][183]   [182][205][206][181] [206][205] [208][207] [167][204][186][165]
  3. 8 [153]"    THEN(null)(null)FN (null)(null) ABS (null)INT (null)(null)   ABS  INT (null)(null) +FN THEN(null)(null)FN
  4. 9 PRINT"                  [183]
  5. 10 [153],"SYSWRITTEN FOR THE PET BY
  6. 14 PRINT,"     TOM TUMEY
  7. 20 [153]"SYS   MODIFIED AND ADAPTED FOR THE 64 BY
  8. 24 PRINT,"  STEVEN DARNOLD
  9. 26 [153],"  P.O. BOX 201
  10. 28 PRINT,"  ALEXANDRA, NEW ZEALAND";
  11. 90 FORI=1TO2000:NEXT
  12. 100 PRINTCHR$(142);:GOTO30000
  13. 132 PRINT"":ONWGOSUB210,290,297,300,310,310,310,340,350,350,375
  14. 200 RETURN
  15. 210 PRINTTAB(25)"[129][162][162][162][162][162][162][162][162]"
  16. 220 PRINTTAB(25)"[161]      [221]"
  17. 230 PRINTTAB(25)"[129][161]      [221]"
  18. 240 PRINTTAB(25)"[129][161]      [221]"
  19. 250 PRINTTAB(25)"[129][161]      O"
  20. 260 PRINTTAB(25)"[129][161]"
  21. 270 PRINTTAB(25)"[161]"
  22. 280 PRINTTAB(25)"[161]"
  23. 285 RETURN
  24. 290 PRINT"":PRINTTAB(25)"[129] [146][184][184][184][184][163][163][163][163]"
  25. 292 PRINTTAB(25)"[161]"
  26. 293 PRINTTAB(25)"[161]"
  27. 294 PRINTTAB(25)"[161]"
  28. 295 PRINTTAB(25)"[161]"
  29. 296 PRINTTAB(24)"[169][146][161]":RETURN
  30. 297 PRINT"[158]                         HANG-MATH    [146]":RETURN
  31. 299 -
  32. 300 PRINT"[150]":PRINTSPC(29)"   [209]"
  33. 305 IFW<>11THENRETURN
  34. 310 PRINT"[150]":PRINTSPC(29)"  [206]";
  35. 315 IFW=5THENRETURN
  36. 320 PRINT"[150] [146]";
  37. 325 IFW=6THENRETURN
  38. 330 PRINT"[150][205]"
  39. 335 IFW<>11THENRETURN
  40. 340 PRINT"[150]":PRINTSPC(29)"    [146] "
  41. 345 IFW<>11THENRETURN
  42. 350 PRINT"[150]":PRINTSPC(29)"  [206] ";
  43. 355 IFW=9THENRETURN
  44. 360 PRINT"[150][205]"
  45. 365 IFW<>11THENRETURN
  46. 370 GOTO1000
  47. 375 PRINT"";
  48. 380 PRINTTAB(30)"  [221]  "
  49. 390 PRINTTAB(30)"  [221]  "
  50. 395 PRINTTAB(30)"[150]  [209]  "
  51. 400 PRINTTAB(30)" [206] [146][205] "
  52. 405 PRINTTAB(30)"   [146]  "
  53. 410 PRINTTAB(30)" [206] [205] "
  54. 420 PRINT"":FORTM=1TO3000:NEXT
  55. 1000 PRINT"[147][158]  YOU HAVE A CHOICE:
  56. 1005 [153]"  PRESS  P WAIT TO PLAY AGAIN
  57. 1010 PRINT"  PRESS  M [146] TO GO TO DISK MENU
  58. 1015 [161]R$:[139]R$[179][177]"P"[175]R$[179][177]"M"[167]1015
  59. 1020 [140]
  60. 1025 [139]R$[178]"P"[167]30060
  61. 1030 [153]"LOAD RETURNING TO THE DISK MENU
  62. 1035 LOAD"MENU",8
  63. 1040 RUN
  64. 1045 END
  65. 30000 GOTO30020
  66. 30001 PRINT"[147]
  67. 30002 [153]"SYSSOLVE THE MULTIPLICATION PROBLEMS
  68. 30003 PRINT"BY GUESSING THE DIGITS WHICH GO WHERE
  69. 30004 [153]"THE ASTERISKS ARE.":[142]
  70. 30020 [134] R$(8),F(9,5),A(5,5),P$(5,5),N(5):[129] I[178]1[164]8:[135]R$(I):[130]
  71. 30030 [131] EXCELENT,VERY GOOD,GOOD,ABOVE AVERAGE,ABOUT AVERAGE,BELOW AVERAGE
  72. 30040 [131] FAIR,POOR
  73. 30060 Q[178][187](2)
  74. 30070 G[178]0:T[178]0
  75. 30080 [143]-GENERATE PUZZLE
  76. 30090 [129] I[178]1[164]5:[129]J[178]1[164]5:P$(I,J)[178]"DEF *":A(I,J)[178]999:[130]J,I
  77. 30100 [129] I[178]0[164]9:[129] J[178]1[164]5:F(I,J)[178]0:[130]J,I:A(1,1)[178][181](10[172][187](1))
  78. 30110 A(2,1)[178][181](10[172][187](1)):A(3,1)[178][181](9[172][187](1))[170]1:A(1,2)[178][181](10[172][187](1))
  79. 30120 A(2,2)[178][181](9[172][187](1))[170]1:N(1)[178]100[172]A(3,1)[170]10[172]A(2,1)[170]A(1,1)
  80. 30130 N(2)[178]10[172]A(2,2)[170]A(1,2):N(3)[178]A(1,2)[172]N(1):N(4)[178]A(2,2)[172]N(1)[172]10
  81. 30140 N(5)[178]N(1)[172]N(2):[129] I[178]5 [164] 1 [169] [171]1:
  82. 30150 M[178]10[174](I[171]1):[129] J[178]3[164]5
  83. 30160 Q[178]N(J)[173]M:A(I,J)[178][181](Q[170].001):[130] J
  84. 30170 [129]J[178]3[164]5:N(J)[178]N(J)[171]A(I,J)[172]M:N(J)[178][181](N(J)[170].9):[130]J:[130]I
  85. 30175 [141]30001:[153]"     PRESS SHIFTWAIT TO BEGIN.
  86. 30180 A(1,4)=999:A(5,3)=999:B$="  ":W=0:N1=0:N5=7:WAIT653,1:PRINT"[147]":GOTO30330
  87. 30190 N1=N1+1:GOTO30220
  88. 30200 PRINT"YOUR INPUT IS NO GOOD,TRY AGAIN":FORB=1TO1000:NEXTB:PRINT"[147]":PRINT:PRINT
  89. 30210 REM-GET NEXT GUESS
  90. 30220 PRINT"":FORI=1TO5:PRINT"                         ":NEXT:PRINT"[145][145][145][145][145][145]"
  91. 30230 INPUT"DIGIT";D$:D=VAL(D$):IFD>9THEN30220
  92. 30240 INPUT"[158]COLUMN";C$:C=VAL(C$):IFC=0ORC>5THEN30220
  93. 30250 N9=N5
  94. 30260 IF F(D,C)=0GOTO 30300
  95. 30270 PRINT"YOU GUESSED THAT ALREADY":FORB=1TO1000:NEXTB:PRINT"[145]"
  96. 30280 PRINT"[145][145][145][145][145][145]
  97. 30290 [137] 30220
  98. 30300 F(D,C)[178]1:[129]I[178]1[164]5:[139]A(C,I)[179][177]D[137] 30320
  99. 30310 P$(C,I)[178][196](D) :N5[178]N5[170]1
  100. 30320 [130] I:[139] N9[179]N5 [167] N1[178]N1[171]1
  101. 30330 [143]-DISPLAY UPDATED PUZZLE
  102. 30350 [153]"ONONONONONONONONONONONONONONONONONONONON"
  103. 30360 [153] B$;B$;P$(3,1);P$(2,1);P$(1,1):[153]
  104. 30370 [153]B$;B$;B$;P$(2,2);P$(1,2):[153]"FORASCASCASCASCASCASCASCASCASCASCASCASCASCASC"
  105. 30380 [153]B$;P$(4,3);P$(3,3);P$(2,3);P$(1,3):[153]
  106. 30390 [153]P$(5,4);P$(4,4);P$(3,4);P$(2,4);B$:[153]"FORASCASCASCASCASCASCASCASCASCASCASCASCASCASC"
  107. 30400 [153]P$(5,5);P$(4,5);P$(3,5);P$(2,5);P$(1,5)
  108. 30430 [153]"SYS ^ ^ ^ ^ ^"
  109. 30440 [153]"54321WAIT":[139]N5[178]25[167][153]:[137]31000
  110. 30445 [139]W[179][177]N1[167]W[178]N1:[141]132
  111. 30450 [137] 30190
  112. 31000 [129]I[178]1[164]8:[151]53265,11:[129]J[178]1[164]400:[130]:[151]53265,27:[129]J[178]1[164]500:[130]J,I
  113. 31010 [137]1000
  114. 32000 [143] WHC 91:03:24
  115.